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Untitled 

Function Name : gfCONFScript 
Parameter ( s ) : None 
Return Value : None 

Comments : This function creates the CONF script for calling the customer 

Revision History 

Date Description 



** 03/16/00 Initial writing. 
** 

+ ** 

function gfconfscript 



if SummaryDetail.TranType = '7' 

lcReturnValue = ' IN-TOWN RESERVATION: Reservation management should assign t 
o a dealer or center. f 

lcReturnValue - lcReturnValue + 'That location should call customer to conf 
irm and scheduling.' 

else 

** Martha changed 10/31/00 per Bruce, 
do case 

** Marcin added altscript 7-17-02 per Bruce 
case glAltScript = .t. 

lcReturnValue = 'This is from the U-Haul regional office 

in 1 + gmcocityst + ' . I am calling to confirm the reservation of ' 

lcReturnValue = lcReturnValue + allt rim (summaryDetail . custom 
er) + ' ,for the following U-Haul Equipment; ' 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + ' ' 
lcReturnValue = lcReturnValue + ' on ' + CDOW (SummaryDetail . 
pickdt) + ', 1 + cmonth (SummaryDetail .pickdt) + ' ' + str (day (SummaryDetail .pickdt) , 
2,0) 

lcReturnValue = lcReturnValue + ' from 1 + iif (str (SummaryDe' 
tail . PickCode, 6, 0) = gcMCO+'008', alltrim (SummaryDetail . o_mco_city) + ', ' + Summary 
Detail . o_mco_st, ALLTRIM (SummaryDetail. pickupcityandstate) ) 

lcReturnValue = lcReturnValue + ' to ' + iif (upper (alltrim (S 
ummaryDetail.Dest) ) = 1 IN-TOWN ' , 'IN-TOWN', alltrim (SummaryDetail . Dest ) ) + ' .' 

lcReturnValue = lcReturnValue + ' Someone from U-Haul will c 
all you before 5PM on the day before your reservation. Equipment is in' 

lcReturnValue = lcReturnValue + ' high demand for your move 
date and we are asking for your patience as we work to fill your reservation' 

lcReturnValue = lcReturnValue + ' with incoming equipment . P 
lease be advised that you may have to travel to pick up your equipment, ' 

lcReturnValue = lcReturnValue + ' but if you work with us, w 
e will get you moved. If your plans change, please' 

lcReturnValue = lcReturnValue + ' contact at ' + gmcopho 

ne + 1 . Thanks for choosing U-Haul.' 



case SummaryDetail .pickdt = date ( ) and str (SummaryDetail . PickCode, 6, 
0) <> gcMCO+'008 ! and UPPER (SummaryDetail . Filled) = 'YES' 

lcReturnValue = 'This is a One-Way reservation for pick up T 

ODAY . ' 
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Untitled 

lcReturnValue = lcReturnValue + ' Our customer has requested 



lcReturnValue = lcReturnValue + gf scriptEquip ( ) + 1 ' 
lcReturnValue = lcReturnValue + ' in * + iif (str {SummaryDeta 
il. PickCode, 6, 0) = gcMCO+'008', all trim (SummaryDet ail . o_jnco_city) + ', 1 + SummaryDe 
tail.o_mco_st, ALLTRIM (SummaryDetail .pickupcityandstate) ) + ' . ' 

lcReturnValue = lcReturnValue + 'Someone has already assigne 
d this reservation to dealer 1 

lcReturnValue = lcReturnvalue + • ' + str (SummaryDetail . Pic 
kCode,6,0) + ' ' + gf LookupDealer (SummaryDetail . PickCode) 

lcReturnValue = lcReturnValue + 1 and marked the reservation 
as "Covered & Scheduled" . ■ 

lcReturnValue = lcReturnValue + ' Select "Assigned" from the 
list below. No other action is required. ' 

case SummaryDetail .pickdt = date ( ) and str (SummaryDetail . PickCode, 6, 
0) <> gcMCO+'008' and UPPER (SummaryDetail . Filled) - 1 NO 1 

lcReturnValue = 'This is a One-Way reservation for pick up T 

ODAY . 1 

lcReturnValue - lcReturnValue + 1 Our customer has requested 

to pick up a ' 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + ' ' 

lcReturnValue - lcReturnValue + ' in ' + iif (str (SummaryDeta 
il. PickCode, 6, 0) = gcMCO+'008', alltrim (SummaryDetail . o_mco_city) + f , ' + SummaryDe 
tail. o_mco_st, ALLTRIM (SummaryDetail. pickupcityandstate) ) + '. ' 

lcReturnValue = lcReturnValue + 'Someone has already assigne 
d this reservation to 1 + str (pickcode, 6, 0) 

lcReturnValue = lcReturnvalue + ' but this reservation is n 
ot "Covered & Scheduled".' 

lcReturnValue = lcReturnValue + ' Verify ' + alltrim (gf Look 
upDealer (SummaryDetail . PickCode) ) + ' has the equipment and that the customer is sch 
eduled. ' 

lcReturnValue = lcReturnValue + 1 Then, Select "Assigned" fr 
om the list below and update the reservation. 1 

case SummaryDetail .pickdt = date ( ) 

lcReturnValue = 'This is a One-Way reservation for pick up T 

ODAY . • 

lcReturnValue = lcReturnValue + 1 Our customer has requested 

to pick up a ? 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + 1 1 
lcReturnValue = lcReturnValue + 1 in ' + iif (str (SummaryDeta 
il. PickCode, 6, 0) = gcMCO+'008', alltrim (SummaryDetail . o_mco_city) + ' + SummaryDe 
tail. o_mco_st, ALLTRIM (SummaryDetail. pickupcityandstate) ) + '. ' 

lcReturnValue - lcReturnValue + ' Assign this reservation to 
a center or dealer for scheduling with the customer. ' 

case SummaryDetail .pickdt = date() + 1 and str (SummaryDetail . PickCod 
e,6,0) <> gcMCO+ f 008' and UPPER (SummaryDetail . Filled) « 'YES' 

lcReturnValue = 'This is a One-Way reservation for pick up T 
OMORROW. Our customer has requested to pick up a 1 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + ' 1 

lcReturnValue = lcReturnValue + ' in ' + iif (str (SummaryDeta 
il. PickCode, 6, 0) = gcMCO+'008', alltrim (SummaryDetail . o_mco_city) + ■ + SummaryDe 
tail .o_mco_st, ALLTRIM (SummaryDetail .pickupcityandstate) ) 

lcReturnValue = lcReturnValue + ' . Someone has already assig 
ned this reservation to dealer 1 

lcReturnValue = lcReturnvalue + ' ' + str (SummaryDetail . Pic 
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Untitled 

kCode,6,0) + ' ■ + gf LookupDealer (Summary Detail . PickCode) 

lcReturnValue = lcReturnValue + 1 and marked the reservation 
as "Covered & Scheduled" . • 

lcReturnValue = lcReturnValue + 1 Select "Assigned" from the 
list below. No other action is required. 1 



case SummaryDetail .pickdt - date() + 1 

lcReturnValue = 'This is from the U-Haul regional office 

in 1 + gmcocityst + ' . I am calling to confirm the reservation for pick up tomorro 
w for ' 

lcReturnValue = lcReturnValue + allt rim (summaryDet ail . custom 
er) + ',for the following U-Haul Equipment ' 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + ' 1 

lcReturnValue = lcReturnValue + ' from 1 + iif (str (SummaryDe 
tail. PickCode, 6,0) = gcMCO+ ' 008 ' , alltrim (SummaryDetail . ojmco_city) + ', ' + Summary 
Detail . o_mco_s t , ALLTRIM ( SummaryDetail . pickupcityands t at e ) ) 

lcReturnValue = lcReturnValue + ' to ' + iif (upper (alltrim (S 
ummaryDetail.Dest) ) = 'IN-TOWN', 'IN-TOWN', alltrim ( SummaryDetail . Dest) ) + ' . ' 

lcReturnValue = lcReturnValue + 'We are locating the equipme 
nt that you have requested and someone from U-Haul ' 

lcReturnValue = lcReturnValue + ' will call you before 7PM t 
oday to schedule your pick up time and location. ' 

lcReturnValue = lcReturnValue + ' If your plans change, cont 
act at ' + gmcophone + ' . ' 

lcReturnValue = lcReturnValue + ' Thanks for choosing U-Haul 



otherwise 

** Marcin changed script 7-17-02 

lcReturnValue = 'This is from the U-Haul regional office 

in ' + gmcocityst + ' . I am calling to confirm the reservation of ' 

lcReturnValue = lcReturnValue + alltrim ( SummaryDetail . custom 
er) + ' , f or the following U-Haul Equipment; ' 

lcReturnValue = lcReturnValue + gf scriptEquip ( ) + ' ' 

lcReturnValue = lcReturnValue + ' on ' + C DOW (SummaryDetail . 
pickdt) + ', ' + cmonth (SummaryDet ail. pickdt) + ' ' + str (day (SummaryDetail .pickdt ) , 
2,0) 

lcReturnValue = lcReturnValue + ' from 1 + iif (str (SummaryDe 
tail. PickCode, 6, 0) = gcMCO+'008', alltrim (SummaryDetail . o_mco_city) + ', ' + Summary 
Detail . o_mco__st , ALLTRIM ( SummaryDetail . pickupcityandstate ) ) 

lcReturnValue = lcReturnValue + 1 to 1 + iif (upper (alltrim (S 
ummaryDetail.Dest)) = 'IN-TOWN', 'IN-TOWN', alltrim (SummaryDetail . Dest ) ) . + ' .' 

lcReturnValue = lcReturnValue + ' Someone from U-Haul will c 
all you before 5PM on the day before your reservation to schedule ' 

lcReturnValue = lcReturnValue + 1 pick up time and location. 
If your plans change, contact at ' + gmcophone + ' . ' 

lcReturnValue = lcReturnValue + ' Thanks for choosing U-Haul 



endcase 

endif 

return lcReturnValue 
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